home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / easyrite.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-02-15  |  29.9 KB  |  501 lines
  1. 10  CLS:REM EASYRITE -- A FULLY FORMATED WORD/MEMO PROCESSING SYSTEM FOR THE IBM
  2. 30  REM VERSION 1.5 -- REVISED 05/10/84
  3. 40  REM WRITTEN BY BRUNO M. LARSEN, SUN CITY AZ FOR G I N A C O (C) 1984
  4. 50  REM =====  INITIALIZATION ROUTINE =====
  5. 60  CLEAR:SCREEN0,0,0:COLOR7,0:WIDTH80:KEYOFF:FORKK=1TO10:KEYKK,"":NEXTKK:DIMMM$(30),TT$(20),MN$(30):DIMA$(200),INPTR$(200),FIN$(200),FILE$(200),P1%(200):REM =====  BOX PARAMETER DEFINITION  =====
  6. 170  TLC$=CHR$(201):TLC2$=CHR$(218):TLC3$=CHR$(178):TRC$=CHR$(187):TRC2$=CHR$(191):TRC3$=CHR$(178):HL$=CHR$(205):HL2$=CHR$(196):HL3$=CHR$(178):BLC$=CHR$(200):BLC2$=CHR$(192):BLC3$=CHR$(178):BRC$=CHR$(188):BRC2$=CHR$(217):BRC3$=CHR$(178)
  7. 220  VL$=CHR$(186):VL2$=CHR$(179):VL3$=CHR$(178):PR$=" ###":PR2$=" OPEN###  \                                                                       \":FILLSTR2$="<UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}>LINE<UNK! {FEFE}><UNK! {FE20}>OPEN":DEFSEG:POKE91,25
  8. 280  POKE92,25:LOCATE1,1,0,12,13:A$="":LN=0:NL=0:FIN$="":LC=0:INTPR$="":DEFINTA-Z:I=0:P=1:FINLEN=0:P=1:IN$="":ONERRORGOTO5010
  9. 430  CLS:KEYOFF:BB$=TIME$:REM =====  INITIAL MASTHEAD DISPLAY  =====
  10. 470  GOSUB 2470:COLOR 15,0:LOCATE 9,30:PRINT"EasyRite Processor - 1.5":LOCATE 11,40:PRINT"(c)":COLOR 7,0:LOCATE 15,30:PRINT"User Supported Software":LOCATE 16,30:PRINT"~~~~ ~~~~~~~~~ ~~~~~~~~":LOCATE 17,24:PRINT"Developed by G I N A C O  --  1984
  11. 530  LOCATE 18,23:PRINT"          Sun City, Arizona ":REM =====  DO YOU NEED INSTRUCTIONS QUERY  =====
  12. 550  COLOR15:LOCATE22,26,0:PRINT"DO YOU NEED INSTRUCTIONS? (Y/N)":COLOR7,0:GOSUB6590:IFYN=1THEN620
  13. 610  IFYN=2THEN3990
  14. 620  REM =====  FIRST PAGE OF INSTRUCTIONS  =====
  15. 630  CLS:KEYOFF:SCREEN0,0,0:WIDTH80:FORKK!=1TO10:KEYKK!,"":NEXT:DEFSEG:POKE91,25:POKE92,25:KEY6,CHR$(124):KEY2,CHR$(127):GOSUB2120:GOSUB3090:FORMM!=1TO4:LOCATEMM!,9:PRINTMM$(MM!)
  16. 790  MM$(2)="      E a s y R i t e:   A basic Word Processing System":MM$(3)="Developed and Compiled for use on the IBM-PC (DOS 1.1 or 2.0)":MM$(4)="~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~":NEXTMM!
  17. 830  COLOR15:LOCATE5,9:PRINT"CAUTION:   Exit EasyRite through the CONTROL or PRINT Menu ONLY!";:LOCATE6,10:PRINT"  Using Ctrl-Break will exit without CURSOR & SCROLL control
  18. 850  LOCATE7,10:PRINT"  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";:COLOR7,0
  19. 860  LOCATE8,10:PRINT"  When prompted to ";:COLOR15:PRINT"<PRESS>,";:COLOR7:PRINT" the ";:COLOR15:PRINT" ENTER (C/R) ";:COLOR7:PRINT"key ";:COLOR15:PRINT"IS NOT ";:COLOR7:PRINT"used";
  20. 870  LOCATE9,10:PRINT"    When prompted to ";:COLOR15:PRINT"<ENTER>,";:COLOR7:PRINT" the";:COLOR15:PRINT" ENTER (C/R) ";:COLOR7:PRINT"key ";:COLOR15:PRINT"IS";:COLOR7:PRINT" used!";:COLOR7,0
  21. 880  LOCATE10,10:PRINT"    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";:COLOR7,0:LOCATE11,10:PRINT"EasyRite is entirely MENU driven. In most cases, escape routes";
  22. 900  LOCATE12,10:PRINT"are provided to permit the operator to return to the safety of";:LOCATE13,10:PRINT"a MENU. An exception is the LOAD a file. Should you get to the";
  23. 920  LOCATE14,10:PRINT"LOAD phase in error, <ENTER> a non-existent FILE NAME and then":LOCATE15,10:PRINT"recover thru the ERROR routine. The FOUR operational phases of";
  24. 940  LOCATE16,10:PRINT"EasyRite are:  (1)  LOAD and REVIEW an existing EasyRite FILE;";:LOCATE17,10:PRINT"(2) CHANGE or CREATE a New EasyRite file; (3) EDIT an existing";
  25. 960  LOCATE18,10:PRINT"or new EasyRite file.  A change may be temporary and displayed";:LOCATE19,10:PRINT"using the REVIEW function.   Or, the file is saved permanently";
  26. 980  LOCATE20,10:PRINT"with the SAVE fuction on any DRIVE. Phase (4) is the HARD COPY";:LOCATE21,10:PRINT"or PRINT function. This provides a choice of three type styles";:LOCATE23,10,0
  27. 1010  PRINT"<PRESS> F-6 TO CONTINUE.          <PRESS> F-2 FOR CONTROL MENU";
  28. 1020  IN$=INKEY$:IFIN$=""THEN1020
  29. 1040  IFIN$=CHR$(124)THEN1070
  30. 1050  IFIN$=CHR$(127)THEN3990
  31. 1060  SOUND600,4:GOTO1020
  32. 1070  REM =====  SECOND PAGE OF INSTRUCTIONS =====
  33. 1080  CLS:KEYOFF:FORNK!=1TO10:KEYNK!,"":NEXT:DEFSEG:POKE91,25:POKE92,25:KEY6,CHR$(124):KEY2,CHR$(127):GOSUB2120:GOSUB3090:LOCATE2,10:PRINT"and pitches. More detailed instructions follow on this and the";
  34. 1160  LOCATE3,10:PRINT"the following page.    When you LOAD an existing EasyRite file";:LOCATE4,10:PRINT"you may REVIEW it immediately.   The FILE will be displayed in";:LOCATE5,10:PRINT"up to 10 twenty-line pages.  You may move through the pages on";
  35. 1190  LOCATE6,10:PRINT"prompt, by pressing the ENTER key.  At the FILE end, a CONTROL";:LOCATE7,10:PRINT"MENU will appear.   The CHANGE option will permit you to WORD-";:LOCATE8,10:PRINT"PROCESS a LOADED or entirely NEW document,  up to 200 lines in";
  36. 1220  LOCATE9,10:PRINT"length,  using 20 line segments per page.  INPUT is protected.";:LOCATE10,10:PRINT"Only specified ALPHA-NUMERIC entries are acceptable  All other";
  37. 1240  LOCATE11,10:PRINT"key-strokes will be refused, announced with a REJECT TONE. The";:LOCATE12,10:PRINT"The CURSOR and EDIT keys are inoperative. Typing errors may be";
  38. 1260  LOCATE13,10:PRINT"corrected immediately -- before the ENTER key is pressed -- by";:LOCATE14,10:PRINT"use of the BACK SPACE key,  as with many self-correcting type-";
  39. 1280  LOCATE15,10:PRINT"writers. At the end of each 20-line page, you will be provided";:LOCATE16,10:PRINT"an opportunity to correct errors - before the page is changed.";
  40. 1300  LOCATE17,10:PRINT"The two correction modes will become evident quickly while you";:LOCATE18,10:PRINT"progress through the program. When the CURSOR is at the begin-";
  41. 1320  LOCATE19,10:PRINT"ning of a LINE in EITHER correction MODE, depressing the ENTER";:LOCATE20,10:PRINT"key will RE-ENTER the existing line without change. You cannot";
  42. 1340  LOCATE21,10:PRINT"EDIT just part of a line. You must completely re-enter a whole";:LOCATE23,10:PRINT"<PRESS> F-6 TO CONTINUE.       <PRESS> F-2 TO GO BACK ONE PAGE";
  43. 1370  IN$=INKEY$:IFIN$=""THEN1370
  44. 1390  IFIN$=CHR$(124)GOTO1420
  45. 1400  IFIN$=CHR$(127)GOTO620
  46. 1410  SOUND600,4:GOTO1370
  47. 1420  REM =====  THIRD PAGE OF INSTRUCTIONS  =====
  48. 1430  CLS:KEYOFF:FORNK!=1TO10:KEYNK!,"":NEXT:DEFSEG:POKE91,25:POKE92,25:KEY6,CHR$(124):KEY2,CHR$(127):GOSUB2120:GOSUB3090:LOCATE2,10:PRINT"line. To leave a line blank, simply press the <ENTER> key.";
  49. 1510  LOCATE4,10:PRINT"EDIT:  This option will display a LOADED or CREATED file in the";:LOCATE5,10:PRINT"EDIT mode. The CURSOR appears at the first position of the page";
  50. 1530  LOCATE6,10:PRINT"where the EDITING starts.  Press ENTER to leave the line as is,";:LOCATE7,10:PRINT"and move the CURSOR to the next line.   At the end of the page,";
  51. 1550  LOCATE8,10:PRINT"you will have a chance to re-correct any line or lines.  If all";:LOCATE9,10:PRINT"lines are OK, pressing ENTER will call up the next page.    You";
  52. 1570  LOCATE10,10:PRINT"use 'END' or  'end' at the BEGINNING of any line to close out a";:LOCATE11,10:PRINT"file.  The word END will not print.  You may REVIEW a NEW or an";
  53. 1590  LOCATE12,10:PRINT"EDIT file immediately.    You need not SAVE a file to PRINT  or";:LOCATE13,10:PRINT"REVIEW it.  Conventional FILE SPECIFICATION protocol is used in";
  54. 1610  LOCATE14,10:PRINT"SAVING and LOADING all files.   The use of the DRIVE DESIGNATOR";:LOCATE15,10:PRINT"(A: B: C: OR D:)  is recommended to prevent inadverdently going";
  55. 1630  LOCATE16,10:PRINT"to an incorrect DRIVE.  The HARD COPY function offers you three";:LOCATE17,10:PRINT"pitch and type styles (Two are EPSON CODED.)  Page numbering is";
  56. 1650  LOCATE18,10:PRINT"automatic with 59 lines printed per page.  Text CENTERING is by";:LOCATE19,10:PRINT"manual spacing.   RIGHT justification is accomplished manually.";
  57. 1670  LOCATE20,10:PRINT"Entering TEXT in the shaded portions of the INPUT & EDIT format";:LOCATE21,10:PRINT"will reduce the RIGHT margin with the standard ELITE print-out.";:LOCATE23,10
  58. 1700  PRINT"<PRESS> F-6 TO CONTINUE.       <PRESS> F-2 TO GO BACK ONE PAGE";
  59. 1710  IN$=INKEY$:IFIN$=""THEN1710
  60. 1730  IFIN$=CHR$(124)GOTO1760
  61. 1740  IFIN$=CHR$(127)GOTO1070
  62. 1750  SOUND600,4:GOTO1710
  63. 1760  KEYOFF:FORNK!=1TO10:KEYNK!,"":NEXT:KEY2,CHR$(127):GOTO3990
  64. 1770  REM =====  PRINTER SELECT ROUTINE  =====
  65. 1780  CLS:GOSUB2120:DEFSEG=&H40:A=PEEK(&H8):B=PEEK(&H9):C=PEEK(&HA):D=PEEK(&HB):POKE&H8,C:POKE&H9,D:POKE&HA,A:POKE&HB,B:IFPEEK(&H9)=3THENLPT$="1"ELSELPT$="2
  66. 1900  LOCATE5,30,0:PRINT"Primary Printer = LPT";LPT$+":";:LOCATE8,24:PRINT"For Printer Test         <PRESS> 1":COLOR15:LOCATE10,11:PRINT"< Do not test printer if none installed at designated port! >":COLOR7:LOCATE12,24
  67. 1950  PRINT"Reset LPT1 OR LPT2       <PRESS> 2";:LOCATE14,24,0:PRINT"To continue with program <PRESS> 3";" ";:GOSUB3590:GOSUB2330
  68. 2000  GOSUB3730:LOCATE21,68,0:LOW=49:HIGH=51:FINLEN=1:GOSUB6240:IFINPTR$=CHR$(13)THENBEEP:GOTO2000
  69. 2070  ONVAL(INPTR$)GOTO2080,1770,2100
  70. 2080  LPRINTTAB(10)"This is a Printer test":GOTO1900
  71. 2100  RETURN
  72. 2110  REM =====  PROGRAM FOR BOX PRINTOUT SET 1 =======
  73. 2120  REM =====  PRINT BOX 1, SET 1 =====
  74. 2130  WW=76:TL=1:LL=24:LC=2:GOSUB3170:RETURN
  75. 2190  REM =====  PRINT BOX 2, SET 1 =====
  76. 2200  WW=76:TL=18:LL=24:LC=2:GOSUB3170:RETURN
  77. 2260  REM =====  PRINT BOX 2A, SET 1 =====
  78. 2270  WW=68:TL=4:LL=22:LC=6:GOSUB3170:RETURN
  79. 2330  REM =====  PRINT BOX 3, SET 1 =====
  80. 2340  WW=23:TL=20:LL=22:LC=50:GOSUB3170:RETURN
  81. 2400  REM =====  PRINT BOX 4, SET 1 =====
  82. 2410  WW=76:TL=1:LL=24:LC=2:GOSUB3170:RETURN
  83. 2470  REM =====  PRINT BOX 5, SET 1 =====
  84. 2480  WW=30:TL=7:LL=13:LC=25:GOSUB3170:RETURN
  85. 2540  REM =====  PROGRAM FOR BOX PRINTOUT SET 2 =======
  86. 2550  REM =====  PRINT BOX 1, SET 2 =====
  87. 2560  COLOR7,0:WW=76:TL=1:LL=24:LC=2:GOSUB3290:RETURN
  88. 2630  REM =====  PRINT BOX 2, SET 2 =====
  89. 2640  WW=76:TL=18:LL=24:LC=2:GOSUB3290:RETURN
  90. 2700  REM =====  PRINT BOX 2A, SET 2 =====
  91. 2710  WW=76:TL=6:LL=19:LC=2:GOSUB3290:RETURN
  92. 2770  REM =====  PRINT BOX 3, SET 2 =====
  93. 2780  WW=23:TL=20:LL=22:LC=50:GOSUB3290:RETURN
  94. 2840  REM =====  PRINT BOX 4, SET 2 =====
  95. 2850  WW=76:TL=1:LL=24:LC=2:GOSUB3290:RETURN
  96. 2910  REM =====  PRINT BOX 5, SET 2 =====
  97. 2920  WW=30:TL=7:LL=13:LC=25:GOSUB3290:RETURN
  98. 2980  REM =====  PRINT MIDDLE BOX CONNECTING LINE VERT/HORZ #1 =====
  99. 2990  LOCATE18,2,0:PRINT"TO";STRING$(76,"THEN");"RANDOMIZE";:RETURN
  100. 3020  REM =====  PRINT PAGE "CENTER LINE" MARKER ON INPUT FORM =====
  101. 3030  LOCATE1,33:PRINT" Center ";:COLOR15:LOCATE1,41:PRINTCHR$(25);:COLOR7,0:LOCATE1,42:PRINT" Marker ";:RETURN
  102. 3050  REM =====  PRINT MIDDLE BOX CONNECTING LINE VERT/HORZ #2 =====
  103. 3060  LOCATE22,1,0:PRINT"TO";STRING$(77,"THEN");"RANDOMIZE";:RETURN
  104. 3090  REM =====  PRINT MIDDLE BOX CONNECTING LINE VERT/HORZ #3 ====
  105. 3100  LOCATE22,2,0:PRINT"PRESET";STRING$(76,"SOUND");"<0xB6!>";:RETURN
  106. 3130  REM =====  PRINT MIDDLE BOX CONNTECTING LINE VERT/HORZ #4 ====
  107. 3140  LOCATE22,2,0:PRINT"BLOAD";STRING$(76,"SOUND");"<0xB4!>";:RETURN
  108. 3170  REM =====  BOX PRINT PRINT ROUTINE, VERSION #1 =====
  109. 3180  LOCATETL,LC,0:PRINTTLC$;STRING$(WW,HL$);TRC$;:FORBD=(TL+1)TO(LL-1):LOCATEBD,LC,0:PRINTVL$;:LOCATEBD,(LC+WW+1),0:PRINTVL$;:NEXT:LOCATELL,LC,0:PRINTBLC$;STRING$(WW,HL$);BRC$;:RETURN
  110. 3290  REM =====  BOX PRINT PRINT ROUTINE, VERSION #2 =====
  111. 3300  LOCATETL,LC,0:PRINTTLC2$;STRING$(WW,HL2$);TRC2$;:FORBD=(TL+1)TO(LL-1):LOCATEBD,LC,0:PRINTVL2$;:LOCATEBD,(LC+WW+1),0:PRINTVL2$;:NEXT:LOCATELL,LC,0:PRINTBLC2$;STRING$(WW,HL2$);BRC2$;:RETURN
  112. 3410  REM =====  CLEAR TOP BOX FORM =====
  113. 3420  FORCS=2TO17:LOCATETL,3,0:PRINTSPC(76):NEXT:RETURN
  114. 3470  REM =====  CLEAR UPPER 1/2 SCREEN FOR DIRECTORY  =====
  115. 3480  FORCS=1TO17:LOCATECS,1,0:PRINTSPC(79):NEXT:RETURN
  116. 3530  REM =====  CLEAR BOTTOM BOX FORM EXCEPT FOR INSERT  =====
  117. 3540  FORCS=19TO23:LOCATECS,3,0:PRINTSPC(47):NEXT:RETURN
  118. 3590  REM =====  CLEAR BOTTOM BOX INCLUDING INSERT  =====
  119. 3600  FORCS=19TO23:LOCATECS,3,0:PRINTSPC(75):NEXT:RETURN
  120. 3650  REM =====  CLEAR THE RESPONSE INPUT BOX  =====
  121. 3660  LOCATE21,52,0:PRINTSPC(22);:RETURN
  122. 3690  REM =====  CLEAR THE RESPONSE LINE BEFORE INSERT BOX  =====
  123. 3700  LOCATE21,10,0:PRINTSPC(40);:RETURN
  124. 3730  REM =====  CLEAR RESPONSE BOX AND SET "SELECT" ROUTINE  =====
  125. 3740  LOCATE21,10,0:PRINTSPC(22);
  126. 3760  LOCATE21,53:PRINT"SELECT               OPEN    OPEN":RETURN
  127. 3790  REM =====  CLEAR INPUT BOX LINE  =====
  128. 3800  LOCATE21,52,0:PRINTSPC(21);:LOCATE21,76:RETURN
  129. 3840  REM =====  CLEAR EasyRite INPUT FORM BOTTOM LINE =====
  130. 3850  LOCATE23,3:PRINTSPC(75):RETURN
  131. 3870  REM =====  CLEAR EasyRite INPUT FORM FIRST HALF BOTTOM LINE =====
  132. 3880  LOCATE23,3:PRINTSPC(37):RETURN
  133. 3900  REM =====  CLEAR EasyRite INPUT FORM LAST HALF BOTTOM LINE =====
  134. 3910  LOCATE23,41:PRINTSPC(37):RETURN
  135. 3930  REM =====  CLEAR TOP FORM DOWN TO HORIZONTAL LINE  =====
  136. 3940  FORCS=3TO17:LOCATECS,3,0:PRINTSPC(75):NEXT:RETURN
  137. 3990  REM =====  QUERY & CLEAR SETUP FOR CONTROL MENU =====
  138. 4000  CLS:GOSUB2260:COLOR15:LOCATE3,31,0,13,12:PRINT"<< CONTROL MENU >> ":COLOR7,0:LOCATE4,6:PRINTCHR$(201);STRING$(23,205);CHR$(209);STRING$(9,205);CHR$(203);STRING$(24,205);CHR$(209);STRING$(9,205);CHR$(187);:FORLN=5TO6:LOCATELN,6
  139. 4020  PRINTCHR$(186);STRING$(23,32);CHR$(179);STRING$(9,32);CHR$(186);STRING$(24,32);CHR$(179);STRING$(9,32);CHR$(186);:NEXT:LOCATE7,6
  140. 4030  PRINTCHR$(199);STRING$(23,196);CHR$(197);STRING$(9,196);CHR$(215);STRING$(24,196);CHR$(197);STRING$(9,196);CHR$(182);:FORLN=8TO9:LOCATELN,6
  141. 4040  PRINTCHR$(186);STRING$(23,32);CHR$(179);STRING$(9,32);CHR$(186);STRING$(24,32);CHR$(179);STRING$(9,32);CHR$(186);:NEXT:LOCATE10,6
  142. 4050  PRINTCHR$(199);STRING$(23,196);CHR$(197);STRING$(9,196);CHR$(215);STRING$(24,196);CHR$(197);STRING$(9,196);CHR$(182);:FORLN=11TO12:LOCATELN,6
  143. 4060  PRINTCHR$(186);STRING$(23,32);CHR$(179);STRING$(9,32);CHR$(186);STRING$(24,32);CHR$(179);STRING$(9,32);CHR$(186);:NEXT:LOCATE13,6
  144. 4070  PRINTCHR$(199);STRING$(23,196);CHR$(197);STRING$(9,196);CHR$(215);STRING$(24,196);CHR$(197);STRING$(9,196);CHR$(182);:FORLN=14TO15:LOCATELN,6
  145. 4080  PRINTCHR$(186);STRING$(23,32);CHR$(179);STRING$(9,32);CHR$(186);STRING$(24,32);CHR$(179);STRING$(9,32);CHR$(186);:NEXT:LOCATE16,6
  146. 4090  PRINTCHR$(199);STRING$(23,196);CHR$(197);STRING$(9,196);CHR$(215);STRING$(24,196);CHR$(197);STRING$(9,196);CHR$(182);:FORLN=17TO18:LOCATELN,6
  147. 4100  PRINTCHR$(186);STRING$(23,32);CHR$(179);STRING$(9,32);CHR$(186);STRING$(24,32);CHR$(179);STRING$(9,32);CHR$(186);:NEXT:LOCATE19,6
  148. 4110  PRINTCHR$(199);STRING$(23,196);CHR$(197);STRING$(9,196);CHR$(215);STRING$(24,196);CHR$(197);STRING$(9,196);CHR$(182);:FORLN=20TO21:LOCATELN,6
  149. 4120  PRINTCHR$(186);STRING$(23,32);CHR$(179);STRING$(9,32);CHR$(186);STRING$(24,32);CHR$(179);STRING$(9,32);CHR$(186);:NEXT:LOCATE22,6
  150. 4130  PRINTCHR$(200);STRING$(23,205);CHR$(207);STRING$(9,205);CHR$(202);STRING$(24,205);CHR$(207);STRING$(9,205);CHR$(188);:LOCATE4,25:PRINT"  Select and <PRESS> a letter  ";:LOCATE6,11:PRINT"F U N C T I O N";:COLOR15:LOCATE6,32:PRINT"<PRESS>";
  151. 4140  COLOR7:LOCATE6,46:PRINT"F U N C T I O N";:COLOR15:LOCATE6,67:PRINT"<PRESS>";:COLOR7:LOCATE9,11:PRINT"DISK Directory":LOCATE9,35:PRINT"D":LOCATE9,46:PRINT"LOAD File":LOCATE9,70:PRINT"L";:LOCATE12,11:PRINT"CHANGE File":LOCATE12,35:PRINT"C
  152. 4150  LOCATE12,46:PRINT"SAVE File":LOCATE12,70:PRINT"S";:LOCATE15,11:PRINT"REVIEW File":LOCATE15,35:PRINT"R":LOCATE15,46:PRINT"EDIT File":LOCATE15,70:PRINT"E";:LOCATE18,11:PRINT"TEST Printer":LOCATE18,35:PRINT"T":LOCATE18,46
  153. 4160  PRINT"PRINT Hard Copy":LOCATE18,70:PRINT"P";:LOCATE21,11:PRINT"QUIT Program":LOCATE21,35:PRINT"Q":LOCATE21,46:PRINT"ZAP (CLEAR) File":LOCATE21,70:PRINT"Z";:LOCATE23,25:COLOR15:PRINT"To Review INSTRUCTIONS <PRESS> I":COLOR7
  154. 4180  MZ$="":MZ$="DdLlCcSsRrEeTtPpQqZzIi":GOSUB4830:GOSUB6180:ONMSGOTO4260,4260,5910,5910,4240,4240,9640,9640,9750,9750,4250,4250,4220,4220,11020,11020,13260,13260,6890,6890,620,620
  155. 4220  GOSUB1770:GOTO3990
  156. 4230  RETURN
  157. 4240  MSQ$="":MSQ$="ZEBRA":GOTO6910
  158. 4250  MSQ$="":MSQ$="LION":GOTO8060
  159. 4260  REM =====  DISK DIRECTORY REVIEW ROUTINE =====
  160. 4270  CLS:GOSUB2330:GOSUB2190:LOCATE21,20,0:PRINT"What Drive (A,B,C,D)";:KEYOFF:MZ$="":MZ$="AaBbCcDd":GOSUB3760:GOSUB6180:LOCATE21,65,0:PRINTIN$;:ONMSGOTO4400,4400,4470,4470,4540,4540,4610,4610
  161. 4400  LOCATE3,1:FILES"A:*.*":COLOR0,7:LOCATE2,32:PRINT" Drive A: ";:COLOR7,0:GOTO4670
  162. 4470  LOCATE3,1:FILES"B:*.*":COLOR0,7:LOCATE2,32:PRINT" Drive B: ";:COLOR7,0:GOTO4670
  163. 4540  LOCATE3,1:FILES"C:*.*":COLOR0,7:LOCATE2,32:PRINT" Drive C: ";:COLOR7,0:GOTO4670
  164. 4610  LOCATE3,1:FILES"D:*.*":COLOR0,7:LOCATE2,32:PRINT" Drive D: ";:COLOR7,0
  165. 4670  GOSUB3590:GOSUB2190:LOCATE20,24:PRINT"Another Directory?      <PRESS 1>";:LOCATE21,24:PRINT"Put File in EasyRite?   <PRESS 2>";:LOCATE22,24:PRINT"Return to CONTROL Menu? <PRESS 3>";:LOCATE21,65,0:FINLEN=1:LOW=49:HIGH=51:GOSUB6240
  166. 4780  ONVAL(INPTR$)GOTO4790,4820,4800
  167. 4790  GOTO4260
  168. 4800  CLS:GOTO3990
  169. 4820  FORLC=19TO22:LOCATELC,10:PRINTSPC(50):NEXT:GOTO5930
  170. 4830  REM =====  ELAPSED TIME PRINTOUT ROUTINE =====
  171. 4840  N$=TIME$:DEFFNH(H$)=VAL(LEFT$(H$,2)):DEFFNM(M$)=VAL(MID$(M$,4,2)):DEFFNS(S$)=VAL(RIGHT$(S$,2)):TMH=(FNH(N$))-FNH(BB$):TMM=(FNM(N$)-FNM(BB$)):TMS=(FNS(N$)-FNS(BB$)):LOCATE25,2:PRINTSPC(78);:KEYOFF:LOCATE25,8:PRINT"Start Time ";BB$;
  172. 4960  LOCATE25,30:PRINT"End Time ";N$;:LOCATE25,50:PRINT"Elapsed Time "TMHCHR$(58)ABS(TMM)CHR$(58)(TMS);:RETURN
  173. 5010  REM =====  ERROR TRAP ROUTINE =====
  174. 5020  GOSUB3690:LOCATE25,2:PRINTSPC(78);:KEYOFF:LOCATE25,28,0:COLOR24,4:PRINT" ERROR ";:COLOR7,0:PRINT" #";ERR;" IN LINE #";ERL;:FORT=1TO1000:NEXT:IFERR=53THENLOCATE20,10:PRINTSPC(30),ELSE5170
  175. 5140  LOCATE20,10:PRINT"File not found   ";:PRINT" ** Load CORRECT Disk";
  176. 5170  IFERR=54THENLOCATE20,10:PRINTSPC(30),ELSE5210
  177. 5180  LOCATE20,10:PRINT"Bad file mode    ";:PRINT" ** Correct File Mode";
  178. 5210  IFERR=55THENLOCATE20,10:PRINTSPC(30),ELSE5250
  179. 5220  LOCATE20,10:PRINT"File already OPEN ";:PRINT" ** CLOSE and REOPEN";
  180. 5250  IFERR=61THENLOCATE20,10:PRINTSPC(30),ELSE5290
  181. 5260  LOCATE20,10:PRINT"Disk FULL         ";:PRINT" ** Install New Disk";
  182. 5290  IFERR=70THENLOCATE20,10:PRINTSPC(30),ELSE5330
  183. 5300  LOCATE20,10:PRINT"Disk WRITE PROTECT  ";:PRINT" ** Remove W/P Tab";
  184. 5330  IFERR=71THENLOCATE20,10:PRINTSPC(30),ELSE5370
  185. 5340  LOCATE20,10:PRINT"Disk NOT READY    ";:PRINT" ** CLOSE Drive Door";
  186. 5370  IFERR=24THENLOCATE20,10:PRINTSPC(30),ELSE5410
  187. 5380  LOCATE20,10:PRINT"Printer OFF-LINE ";:PRINT"  ** Set ON-LINE Mode";
  188. 5410  IFERR=25THENLOCATE20,10:PRINTSPC(30),ELSE5450
  189. 5420  LOCATE20,10:PRINT"Printer not ON    ";:PRINT" ** Check Printer ON";
  190. 5450  IFERR=27THENLOCATE20,10:PRINTSPC(30),ELSE5540
  191. 5460  LOCATE20,10:PRINT"OUT OF PAPER!     ";:PRINT" ** Check Paper Path";
  192. 5490  LOCATE22,20:GOSUB2330:GOSUB3650:GOSUB3690:RETURN
  193. 5540  GOSUB5490:LOCATE22,10,0:PRINT"Correct SYSTEM ERROR - <PRESS> ENTER";:LOCATE22,10,0:GOSUB6670:KEYON:KEYOFF:COLOR7,0:RESUME3990
  194. 5630  REM =====  DATA SAVE ROUTINE TO DISK  =====
  195. 5640  CLS:GOSUB2190:GOSUB2330:LOCATE21,27,0:COLOR15:PRINT"What is FileName? ";:COLOR7,0:GOSUB3650:FINLEN=14:LOCATE21,51:COLOR15:PRINT"FileName <UNK! {00FA}>|<UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}>.<UNK! {00FA}><UNK! {00FA}><UNK! {00FA}>";:COLOR7,0:LOCATE21,60,0:GOSUB6400:FILESPEC$=FIN$:GOSUB3690:OPEN "O",1,FILESPEC$
  196. 5820  WRITE#1,P:FORI=1TOP:WRITE#1,A$(I):IF(A$(I)="END"ORA$(I)="end")THENP=I
  197. 5860  IF(A$(I)="END"ORA$(I)="end")THEN5880
  198. 5870  NEXT
  199. 5880  CLOSE:GOSUB4830:GOTO9730
  200. 5910  REM =====  DISK READ ROUTINE FROM DISK  =====
  201. 5920  CLS
  202. 5930  FORI=1TO60:A$(I)="":NEXT:GOSUB2190:GOSUB2330:LOCATE21,27:COLOR15:PRINT"What is FileName? ";:COLOR7,0:GOSUB3650:FINLEN=14:LOCATE21,51:COLOR15:PRINT"FileName <UNK! {00FA}>|<UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}><UNK! {00FA}>.<UNK! {00FA}><UNK! {00FA}><UNK! {00FA}>";:COLOR7,0:LOCATE21,60,0:GOSUB6400:FILESPEC$=FIN$:GOSUB3690
  203. 6100  OPEN "I",1,FILESPEC$:INPUT#1,P:FORI=1TOP:INPUT#1,A$(I):IF(A$(I)="END"ORA$(I)="end")THENP=I
  204. 6150  IF(A$(I)="END"ORA$(I)="END")THEN6170
  205. 6160  NEXT
  206. 6170  CLOSE:GOTO3990
  207. 6180  REM =====  INKEY$ RESPONSE FOR DIRECTORY SELECTION  =====
  208. 6190  IN$=INKEY$:IFIN$=""THEN6180
  209. 6210  MS=INSTR(MZ$,IN$):IFMS=0THENSOUND1000,4:GOTO6180
  210. 6230  RETURN
  211. 6240  REM =====  INKEY$ ROUTINE FOR NUMBER RESPONSES =====
  212. 6250  FIN$="
  213. 6260  IFINKEY$><""THEN6260
  214. 6270  INPTR$=INKEY$:IFINPTR$=""THEN6270
  215. 6290  IFINPTR$=CHR$(13)THENRETURN
  216. 6300  IFINPTR$<>CHR$(8)THEN6350
  217. 6310  IFFIN$=""THENSOUND600,4:GOTO6270
  218. 6320  PRINTCHR$(29);" ";CHR$(29);:FIN$=LEFT$((FIN$),LEN(FIN$)-1):GOTO6270
  219. 6350  IF(ASC(INPTR$)<LOWORASC(INPTR$)>HIGH)THENSOUND400,4:GOTO6270
  220. 6360  FIN$=FIN$+INPTR$:PRINTINPTR$;:IFLEN(FIN$)=FINLENTHENRETURN
  221. 6390  GOTO6270
  222. 6400  REM =====  INKEY$ ROUTINE FOR LETTER RESPONSES =====
  223. 6410  COLOR7,0:FIN$="":IFFINLEN=0THENFINLEN=255
  224. 6440  IFINKEY$><""THEN6440
  225. 6450  IFINKEY$=CHR$(127)THEN3990
  226. 6460  INPTR$=INKEY$:IFINPTR$=""THEN6460
  227. 6480  IFINPTR$=CHR$(13)THENRETURN
  228. 6490  IFINPTR$<>CHR$(8)THEN6540
  229. 6500  IFFIN$=""THENSOUND600,4:GOTO6460
  230. 6510  PRINTCHR$(29);"<UNK! {00FA}>";CHR$(29);:FIN$=LEFT$((FIN$),LEN(FIN$)-1):GOTO6460
  231. 6540  IFLEN(FIN$)=FINLENTHENSOUND600,4:GOTO6460
  232. 6550  IFASC(INPTR$)<31ORASC(INPTR$)>126THENSOUND400,4:GOTO6460
  233. 6560  PRINTINPTR$;:FIN$=FIN$+INPTR$:GOTO6460
  234. 6590  REM =====  INKEY$ RESPONSE FOR YES/NO ROUTINE  =====
  235. 6600  IN$=INKEY$:IFIN$=""THEN6590
  236. 6620  YN=0:IF(IN$="Y"ORIN$="y")THENYN=1:RETURN
  237. 6640  IF(IN$="N"ORIN$="n")THENYN=2:RETURN
  238. 6650  SOUND400,4:GOTO6590
  239. 6670  REM =====  INKEY$ CHECK FOR CARRIAGE RETURN INPUT  =====
  240. 6680  IFINKEY$><""GOTO6670
  241. 6690  IN$=INKEY$:IFIN$=""THEN6690
  242. 6710  IFIN$<>CHR$(13)THENSOUND400,4:GOTO6690
  243. 6720  RETURN
  244. 6730  REM =====  PRINT IN EasyRite BOTTOM BOX END AND QUOTE INSTRUCTIONS =====
  245. 6740  GOSUB3840:LOCATE23,6,0:PRINT"Enter ";:COLOR15:PRINTCHR$(34)"END"CHR$(34);:COLOR7,0:PRINT" to close entries ";:LOCATE23,41:PRINT"No ";:COLOR15:PRINT"QUOTATION MARKS";:COLOR7,0:PRINT" permitted in TEXT!";:RETURN
  246. 6790  REM =====  STRING INPUT CONTROL/DIRECTION SUBROUTINE  =====
  247. 6800  LOCATELN,8,1:COLOR15:PRINTA$(I);:COLOR7,0:LOCATELN,8,1,0,7:FINLEN=70:GOSUB6400:IFFIN$=""THENA$(I)=A$(I)ELSEA$(I)=FIN$
  248. 6840  LOCATELN,8,0,13,12:COLOR7,0:PRINTSTRING$(70,"<UNK! {00FA}>");:LOCATELN,8,0:PRINTA$(I);:IF(A$(I)="END"ORA$(I)="end")THENP=I
  249. 6870  IF(A$(I)="END"ORA$(I)="end")THENGOSUB9010:GOTO9640
  250. 6880  RETURN
  251. 6890  REM =====  ZAP (CLEAR) FILE TO CREATE NEW FILE =====
  252. 6900  FORI=1TO200:A$(I)="":NEXT:GOSUB13510:GOTO3990
  253. 6910  REM =====  START OF LOADED FILE CHANGE ROUTINE, PAGE SELECTOR  =====
  254. 6920  CLS:GOSUB 2400:GOSUB 2470:LOCATE 9,27:PRINT"Change From Page 1 <PRESS 1>":LOCATE 11,27:PRINT"Change From Page ? <PRESS 2>":LOCATE 21,40,0:FINLEN=1:LOW=49:HIGH=50:GOSUB 6240:ON VAL(INPTR$)GOTO 7020,6980
  255. 6980  LOCATE 16,25:PRINT"Start at what Page? <ENTER> Pg #";:LOCATE 18,27:PRINT"<Select from Pages 2 thru 9>";:LOCATE 21,40,0:FINLEN=1:LOW=50:HIGH=57:GOSUB 6240:ON VAL(INPTR$)-1 GOTO 7130,7230,7330,7440,7540,7640,7750,7850
  256. 7020  REM =====  START OF LOADED FILE CHANGE ROUTINE, PAGE ONE  =====
  257. 7030  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=1TO20:LOCATEI+1,3:PRINTUSINGPR$;I;:LOCATEI+1,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI+1,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=1:PG#=0:PG#=1:LN=0:FORI=1TO20:LN=I+1:GOSUB6790
  258. 7110  IFLN=21THENI=20:GOSUB9010:GOTO7130
  259. 7120  NEXT
  260. 7130  REM =====  START OF SECOND CHANGE PAGE  =====
  261. 7140  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=21TO40:LOCATEI-19,3:PRINTUSINGPR$;I;:LOCATEI-19,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-19,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=20:PG#=0:PG#=2:LN=0:FORI=21TO40:LN=I-19:GOSUB6790
  262. 7210  IFLN=21THENI=40:GOSUB9010:GOTO7230
  263. 7220  NEXT
  264. 7230  REM =====  START OF THIRD CHANGE PAGE  =====
  265. 7240  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=41TO60:LOCATEI-39,3:PRINTUSINGPR$;I;:LOCATEI-39,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-39,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=40:PG#=0:PG#=3:LN=0:FORI=41TO60:LN=I-39:GOSUB6790
  266. 7310  IFLN=21THENI=60:GOSUB9010:GOTO7330
  267. 7320  NEXT
  268. 7330  REM =====  START OF FOURTH CHANGE PAGE  =====
  269. 7340  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=61TO80:LOCATEI-59,3:PRINTUSINGPR$;I;:LOCATEI-59,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-59,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=1:PG#=0:PG#=4:LN=0:FORI=61TO80:LN=I-59:GOSUB6790
  270. 7420  IFLN=21THENI=80:GOSUB9010:GOTO7440
  271. 7430  NEXT
  272. 7440  REM =====  START OF FIFTH CHANGE PAGE  =====
  273. 7450  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=81TO100:LOCATEI-79,3:PRINTUSINGPR$;I;:LOCATEI-79,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-79,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=20:PG#=0:PG#=5:LN=0:FORI=81TO100:LN=I-79:GOSUB6790
  274. 7520  IFLN=21THENI=100:GOSUB9010:GOTO7540
  275. 7530  NEXT
  276. 7540  REM =====  START OF SIXTH CHANGE PAGE  =====
  277. 7550  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=101TO120:LOCATEI-99,3:PRINTUSINGPR$;I;:LOCATEI-99,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-99,8:PRINTA$(I);:NEXT:GOSUB6730:P=60:I=200:PG#=0:PG#=6:LN=0:FORI=101TO120:LN=I-99:GOSUB6790
  278. 7620  IFLN=21THENI=120:P=I:GOSUB9010:GOTO7640
  279. 7630  NEXT
  280. 7640  REM =====  START OF SEVENTH CHANGE PAGE  =====
  281. 7650  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=121TO140:LOCATEI-119,3:PRINTUSINGPR$;I;:LOCATEI-119,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-119,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=1:PG#=0:PG#=7:LN=0:FORI=121TO140:LN=I-119:GOSUB6790
  282. 7730  IFLN=21THENI=140:GOSUB9010:GOTO7750
  283. 7740  NEXT
  284. 7750  REM =====  START OF EIGTH CHANGE PAGE  =====
  285. 7760  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=141TO160:LOCATEI-139,3:PRINTUSINGPR$;I;:LOCATEI-139,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-139,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=20:PG#=0:PG#=8:LN=0:FORI=141TO160:LN=I-139:GOSUB6790
  286. 7830  IFLN=21THENI=140:GOSUB9010:GOTO7850
  287. 7840  NEXT
  288. 7850  REM =====  START OF NINTH CHANGE PAGE  =====
  289. 7860  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=161TO180:LOCATEI-159,3:PRINTUSINGPR$;I;:LOCATEI-159,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-159,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=160:PG#=0:PG#=9:LN=0:FORI=161TO180:LN=I-159:GOSUB6790
  290. 7930  IFLN=21THENI=180:GOSUB9010:GOTO7950
  291. 7940  NEXT
  292. 7950  REM =====  START OF TENTH CHANGE PAGE  =====
  293. 7960  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=181TO200:LOCATEI-179,3:PRINTUSINGPR$;I;:LOCATEI-179,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-179,8:PRINTA$(I);:NEXT:GOSUB6730:P=200:I=1:PG#=0:PG#=10:LN=0:FORI=181TOP:LN=I-179:GOSUB6790
  294. 8040  IFLN=21THENI=200:P=I:GOSUB9010:GOTO9640
  295. 8050  NEXT
  296. 8060  REM =====  START OF IN-MEMORY EDIT ROUTINE, PAGE SELECTOR  =====
  297. 8070  CLS:GOSUB2400:GOSUB2470:LOCATE9,28:PRINT"Edit From Page 1 <PRESS 1>":LOCATE11,28:PRINT"Edit from Page ? <PRESS 2>":LOCATE21,40,0:FINLEN=1:LOW=49:HIGH=50:GOSUB6240:ONVAL(INPTR$)GOTO8170,8130
  298. 8130  LOCATE 16,25:PRINT"Start at what Page? <ENTER> Pg #";:LOCATE 18,27:PRINT"<Select from Pages 2 thru 9>";:LOCATE 21,40,0:FINLEN=1:LOW=50:HIGH=57:GOSUB 6240:ON VAL(INPTR$)-1 GOTO 8260,8340,8420,8510,8590,8670,8760,8840
  299. 8170  REM =====  START OF IN-MEMORY EDIT ROUTINE, PAGE ONE  =====
  300. 8180  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=1TO20:LOCATEI+1,3:PRINTUSINGPR$;I;:LOCATEI+1,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI+1,8:PRINTA$(I);:NEXT:P=200:I=1:PG#=0:PG#=1:LN=0:FORI=1TO20:LN=I+1:IFLN=21THENI=20:GOSUB9010:GOTO8260
  301. 8250  NEXT
  302. 8260  REM =====  START OF SECOND EDIT PAGE  =====
  303. 8270  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=21TO40:LOCATEI-19,3:PRINTUSINGPR$;I;:LOCATEI-19,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-19,8:PRINTA$(I);:NEXT:P=200:I=20:PG#=0:PG#=2:LN=0:FORI=21TO40:LN=I-19
  304. 8320  IFLN=21THENI=40:GOSUB9010:GOTO8340
  305. 8330  NEXT
  306. 8340  REM =====  START OF THIRD EDIT PAGE  =====
  307. 8350  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=41TO60:LOCATEI-39,3:PRINTUSINGPR$;I;:LOCATEI-39,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-39,8:PRINTA$(I);:NEXT:P=200:I=40:PG#=0:PG#=3:LN=0:FORI=41TO60:LN=I-39
  308. 8400  IFLN=21THENI=60:GOSUB9010:GOTO8420
  309. 8410  NEXT
  310. 8420  REM =====  START OF FOURTH PAGE  =====
  311. 8430  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=61TO80:LOCATEI-59,3:PRINTUSINGPR$;I;:LOCATEI-59,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-59,8:PRINTA$(I);:NEXT:P=200:I=1:PG#=0:PG#=4:LN=0:FORI=61TO80:LN=I-59
  312. 8490  IFLN=21THENI=80:GOSUB9010:GOTO8510
  313. 8500  NEXT
  314. 8510  REM =====  START OF FIFTH EDIT PAGE  =====
  315. 8520  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=81TO100:LOCATEI-79,3:PRINTUSINGPR$;I;:LOCATEI-79,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-79,8:PRINTA$(I);:NEXT:P=200:I=20:PG#=0:PG#=5:LN=0:FORI=81TO100:LN=I-79
  316. 8570  IFLN=21THENI=100:GOSUB9010:GOTO8590
  317. 8580  NEXT
  318. 8590  REM =====  START OF SIXTH EDIT PAGE  =====
  319. 8600  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=101TO120:LOCATEI-99,3:PRINTUSINGPR$;I;:LOCATEI-99,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-99,8:PRINTA$(I);:NEXT:P=60:I=200:PG#=0:PG#=6:LN=0:FORI=101TO120:LN=I-99
  320. 8650  IFLN=21THENI=120:P=I:GOSUB9010:GOTO8670
  321. 8660  NEXT
  322. 8670  REM =====  START OF SEVENTH EDIT PAGE  =====
  323. 8680  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=121TO140:LOCATEI-119,3:PRINTUSINGPR$;I;:LOCATEI-119,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-119,8:PRINTA$(I);:NEXT:P=200:I=1:PG#=0:PG#=7:LN=0:FORI=121TO140:LN=I-119
  324. 8740  IFLN=21THENI=140:GOSUB9010:GOTO8760
  325. 8750  NEXT
  326. 8760  REM =====  START OF EIGTH EDIT PAGE  =====
  327. 8770  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=141TO160:LOCATEI-139,3:PRINTUSINGPR$;I;:LOCATEI-139,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-139,8:PRINTA$(I);:NEXT:P=200:I=20:PG#=0:PG#=8:LN=0:FORI=141TO160:LN=I-139
  328. 8820  IFLN=21THENI=140:GOSUB9010:GOTO8840
  329. 8830  NEXT
  330. 8840  REM =====  START OF NINTH EDIT PAGE  =====
  331. 8850  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=161TO180:LOCATEI-159,3:PRINTUSINGPR$;I;:LOCATEI-159,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-159,8:PRINTA$(I);:NEXT:P=200:I=160:PG#=0:PG#=9:LN=0:FORI=161TO180:LN=I-159
  332. 8900  IFLN=21THENI=180:GOSUB9010:GOTO8920
  333. 8910  NEXT
  334. 8920  REM =====  START OF TENTH PAGE  =====
  335. 8930  CLS:GOSUB2840:GOSUB3130:GOSUB3020:FORI=181TO200:LOCATEI-179,3:PRINTUSINGPR$;I;:LOCATEI-179,8:PRINTSTRING$(66,"<UNK! {00FA}>");"LINE";"<UNK! {FEFE}><UNK! {FE22}>;:LOCATEI-179,8:PRINTA$(I);:NEXT:P=200:I=1:PG#=0:PG#=10:LN=0:FORI=181TOP:LN=I-179
  336. 8990  IFLN=21THENI=200:P=I:GOSUB9010:GOTO9640
  337. 9000  NEXT
  338. 9010  REM =====  IS THIS CORRECT QUERY SUBROUTINE  =====
  339. 9020  GOSUB3840:LOCATE23,28,0:COLOR15:PRINT"Is this PAGE correct <Y/N> ";:COLOR7,0:GOSUB6590:IFYN=1ANDMSQ$="ZEBRA"THENGOSUB9530:RETURN
  340. 9080  IFYN=1ANDMSQ$="LION"THENGOSUB9580:RETURN
  341. 9090  IFYN=2THEN9100
  342. 9100  GOSUB3840:LOCATE23,20:COLOR15:PRINT"Re-enter what line? ";:COLOR7,0:LOCATE23,50:PRINT" Line # ";:IFPG#<5THENFINLEN=2
  343. 9180  IFPG#>5THENFINLEN=3
  344. 9190  LOW=48:HIGH=57:GOSUB6240:GOSUB3840:L=VAL(FIN$):IFPG#=1ANDL>20THENBEEP:GOTO9010
  345. 9250  IFPG#=2AND(L<21ORL>40)THENBEEP:GOTO9010
  346. 9260  IFPG#=3AND(L<41ORL>60)THENBEEP:GOTO9010
  347. 9270  IFPG#=4AND(L<61ORL>80)THENBEEP:GOTO9010
  348. 9280  IFPG#=5AND(L<81ORL>100)THENBEEP:GOTO9010
  349. 9290  IFPG#=6AND(L<101ORL>120)THENBEEP:GOTO9010
  350. 9300  IFPG#=7AND(L<121ORL>140)THENBEEP:GOTO9010
  351. 9310  IFPG#=8AND(L<141ORL>160)THENBEEP:GOTO9010
  352. 9320  IFPG#=9AND(L<161ORL>180)THENBEEP:GOTO9010
  353. 9330  IFPG#=10AND(L<181ORL>200)THENBEEP:GOTO9010
  354. 9340  IFPG#=1THENNL=L
  355. 9350  IFPG#=2THENNL=L-20
  356. 9360  IFPG#=3THENNL=L-40
  357. 9370  IFPG#=4THENNL=L-60
  358. 9380  IFPG#=5THENNL=L-80
  359. 9390  IFPG#=6THENNL=L-100
  360. 9400  IFPG#=7THENNL=L-120
  361. 9410  IFPG#=8THENNL=L-140
  362. 9420  IFPG#=9THENNL=L-160
  363. 9430  IFPG#=10THENNL=L-180
  364. 9440  I=L:LOCATE23,60:PRINTINPTR$;:LOCATE23,60:PRINTL;:LOCATENL+1,8,1:COLOR15:PRINTA$(I);:COLOR7,0:LOCATENL+1,8,1,0,7:FINLEN=70:GOSUB6400:IFFIN$=""THENA$(I)=A$(I)ELSEA$(I)=FIN$
  365. 9500  LOCATENL+1,8,0,13,12:COLOR7,0:PRINTSTRING$(70,"<UNK! {00FA}>");:LOCATENL+1,8,0:PRINTA$(I);:GOTO9010
  366. 9530  REM =====  QUERY ON NEXT PAGE OR QUIT INPUT =====
  367. 9540  GOSUB3840:LOCATE23,7,0:COLOR15:PRINT"<PRESS 1> To Continue Processing";:LOCATE23,46,0:PRINT"<PRESS 2> To Terminate Input";:COLOR7:LOCATE23,40,0:FINLEN=1:LOW=49:HIGH=50:GOSUB6240:ONVAL(INPTR$)GOTO9570,9630
  368. 9570  RETURN
  369. 9580  REM =====  QUERY ON NEXT PAGE OR QUIT EDIT =====
  370. 9590  GOSUB3840:LOCATE23,7,0:COLOR15:PRINT"<PRESS 1> To Continue Editing";:LOCATE23,46,0:PRINT"<PRESS 2> To Terminate Edit";:COLOR7:LOCATE23,40,0:FINLEN=1:LOW=49:HIGH=50:GOSUB6240:ONVAL(INPTR$)GOTO9570,9630
  371. 9620  RETURN
  372. 9630  GOTO9640
  373. 9640  REM =====  SAVE TO DISK QUERY ROUTINE  =====
  374. 9650  CLS:GOSUB2190:LOCATE21,20:COLOR15:PRINT"SAVE to DISK <Y/N> ";:COLOR7,0:GOSUB6590:IFYN=1THEN5630
  375. 9720  IFYN=2THEN9730
  376. 9730  REM =====  CHANCE TO REVIEW INPUT FILES  =====
  377. 9740  GOTO3990
  378. 9750  REM =====  STARTING OUTPUT LOOP =====
  379. 9760  REM =====  DISPLAYS PAGE 1 - 1ST 20 LINES =====
  380. 9770  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=1TO20:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<20THENGOSUB3840:GOTO10950
  381. 9860  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 2 - 2ND 20 LINES =====
  382. 9910  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=21TO40:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<40THENGOSUB3840:GOTO10950
  383. 9980  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 3 - 3rd 20 LINES =====
  384. 10030  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=41TO60:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<60THENGOSUB3840:GOTO10950
  385. 10100  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 4 - 4th 20 LINES =====
  386. 10150  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=61TO80:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<80THENGOSUB3840:GOTO10950
  387. 10220  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 5 - 5th 20 LINES =====
  388. 10270  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=81TO100:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<100THENGOSUB3840:GOTO10950
  389. 10340  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 6 - 6th 20 LINES =====
  390. 10390  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=101TO120:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<120THENGOSUB3840:GOTO10950
  391. 10460  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 7 - 7th 20 LINES =====
  392. 10510  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=121TO140:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<140THENGOSUB3840:GOTO10950
  393. 10580  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 8 - 8th 20 LINES =====
  394. 10630  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=141TO160:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<160THENGOSUB3840:GOTO10950
  395. 10700  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 9 - 9th 20 LINES =====
  396. 10750  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=161TO180:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<180THENGOSUB3840:GOTO10950
  397. 10820  GOSUB3840:LOCATE23,30:PRINT"<PRESS> ENTER to Continue!";:GOSUB6670:REM =====  DISPLAYS PAGE 10 - LAST 20 LINES =====
  398. 10870  CLS:GOSUB2840:GOSUB3130:LOCATE2,7,0:FORI=181TO200:LOCATE,7:PRINTA$(I):NEXT:IFP-1=<200THENGOSUB3840:GOTO10950
  399. 10940  GOSUB3840
  400. 10950  LOCATE23,10:PRINT"End of ";:COLOR15:PRINTFILESPEC$;:COLOR7,0:PRINT" File":LOCATE23,45:PRINT"<PRESS> ANY KEY to Continue";
  401. 10990  RES$=INKEY$:IFRES$=""THEN10990
  402. 11010  GOTO3990
  403. 11020  REM =====  EasyRite HARD COPY OPTIONS =====
  404. 11030  CLS:GOSUB2120:GOSUB2980:LOCATE3,27:PRINT"EasyRite HARD COPY SELECTOR";:LOCATE4,27:COLOR7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";:LOCATE5,34:PRINT"C H O I C E S":LOCATE6,34:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";
  405. 11150  REM =====  MODIFIED PRINT OPTIONS INCLUDING DOUBLE SPACE =====
  406. 11160  LOCATE8,23:PRINT"Standard ELITE (10 Char/Inch).....1";:LOCATE9,23:PRINT"Emphasized ELITE (10 Char/Inch)...2";:LOCATE10,23:PRINT"Emphasised ELITE (Double Space)...3";:LOCATE11,23:PRINT"ITALICS Print.(EPSON CODE)........4";
  407. 11200  LOCATE12,23:PRINT"COMPRESSED Print.(EPSON CODE).....5";:LOCATE13,23:PRINT"Read DISK DIRECTORIES.............6";:LOCATE14,23:PRINT"Reset Parallel Printer Port.......7";:LOCATE15,23:PRINT"Return to CONTROL Menu............8";:LOCATE16,23
  408. 11280  PRINT"QUIT the program..................9";:GOSUB2330:LOCATE21,20:PRINT"Select and <PRESS> a Number";
  409. 11320  GOSUB3760:GOSUB4830:FINLEN=1:LOW=49:HIGH=57:GOSUB6240:IFINPTR$=CHR$(13)THENSOUND400,3:GOTO11320
  410. 11390  ONVAL(INPTR$)GOTO11410,11460,11510,11560,11610,4260,11400,3990,13260
  411. 11400  GOSUB1770:GOTO11020
  412. 11410  REM =====  STANDARD ELITE (10 PITCH) PRINT =====
  413. 11420  CLS:WIDTH"LPT1:",80:GOSUB2700:GOSUB11660:GOTO12100
  414. 11460  REM =====  EMPHASIZED ELITE (10 PITCH) PRINT =====
  415. 11470  CLS:WIDTH"LPT1:",80:GOSUB2700:GOSUB11660:GOTO12270
  416. 11510  REM =====  EMPHASIZED ELITE (DOUBLE SPACE) =====
  417. 11520  CLS:WIDTH"LPT1:",80:GOSUB2700:GOSUB11660:GOTO12440
  418. 11560  REM =====  ALL LINES ITALICS =====
  419. 11570  CLS:WIDTH"LPT1:",132:GOSUB2700:GOSUB11660:GOTO12610
  420. 11610  REM =====  ALL LINES COMPRESSED =====
  421. 11620  CLS:WIDTH"LPT1:",132:GOSUB2700:GOSUB11660:GOTO12800
  422. 11660  REM =====  QUERY ON PRINTED PAGE NUMBERS =====
  423. 11670  LOCATE10,23:PRINT"DO YOU WANT PRINTED PAGES NUMBERED":LOCATE13,33:PRINT"<PRESS> Y or N":GOSUB6590:IFYN=1THENLLN$="TRUE
  424. 11710  IFYN=1THENLLK$="PAGER":GOSUB2700:GOTO11840
  425. 11720  IFYN=2THENLLN$="FALSE
  426. 11730  GOSUB2700:REM =====  QUERY ON GOING TO TOP OF FORM AFTER PRINTING =====
  427. 11750  FORE=9TO15:LOCATEE,10:PRINTSPC(50):NEXT:LOCATE10,13:PRINT"AFTER PRINTING, DO YOU WANT PAPER ADVANCED TO TOP OF FORM":LOCATE13,33:PRINT"<PRESS> Y or N":GOSUB6590:FORE=9TO15:LOCATEE,10:PRINTSPC(60):NEXT:IFYN=1THENLLK$="PAGER
  428. 11810  IFYN=2THENLLK$="STOPPG
  429. 11820  CLS:GOSUB2700:REM =====  LIST PRINT CHOICE MENU  =====
  430. 11840  FORE=9TO15:LOCATEE,20:PRINTSPC(50):NEXT:LOCATE6,33:PRINT"  R E A D Y  ";:LOCATE7,33:PRINT"  THENTHENTHENTHENTHENTHENTHENTHENTHEN  ";:LOCATE9,25:COLOR15:PRINT"Check Printer ON and SELECTED!";:COLOR7,0:LOCATE10,10:PRINTSTRING$(50,32);:LOCATE11,25
  431. 11940  PRINT"CHECK Paper: TOP of FORM (TOF)";:LOCATE13,25:PRINT"  <PRESS> Space Bar:  PRINT";:LOCATE15,25:PRINT"  <PRESS> Return:      MENU";
  432. 11990  RES$=INKEY$:IFRES$=""THEN11990
  433. 12010  IFRES$=CHR$(32)THENRETURN
  434. 12020  IFRES$=CHR$(13)THEN11020
  435. 12030  REM =====  PRIMARY LINE COUNTER AND PAGE ADVANCE  =====
  436. 12040  IFLLN$="TRUE"ANDLLK$="PAGER"THEN12070
  437. 12050  IFLLN$="FALSE"ANDLLK$="PAGER"THEN12080
  438. 12060  IFLLN$="FALSE"ANDLLK$="STOPPG"THEN12090
  439. 12070  IFPL=>59THENLPRINT:LPRINTTAB(PTC)PN:PN=PN+1
  440. 12080  IFPL=>59THENLPRINTCHR$(12);:FORLA=1TO5:LPRINT:NEXT:PL=5
  441. 12090  RETURN
  442. 12100  REM =====  STANDARD 10 PITCH ELITE PRINT =====
  443. 12110  PT=8:PTC=40:LPRINTCHR$(27)+"@";:PN=1:PL=0:FORLA=1TO5:LPRINT:NEXT:WIDTH"LPT1:",80:PL=5:FORI=1TOP:IFA$(I)="END"ORA$(I)="end"THEN12210
  444. 12180  LPRINTTAB(PT)A$(I):PL=PL+1:GOSUB12030:NEXT
  445. 12210  IFLLN$="TRUE"THEN12230
  446. 12220  IFLLN$="FALSE"THEN12240
  447. 12230  FORPA=1TO61-PL:LPRINT:NEXT:LPRINTTAB(PTC)PN;:LPRINTCHR$(12);:GOSUB12980:GOTO12100
  448. 12240  IFLLK$="STOPPG"THENGOSUB12980:GOTO12100
  449. 12250  LPRINTCHR$(12);:GOSUB12980:GOTO12100
  450. 12270  REM =====  EMPHASIZED 10 PITCH PRINT =====
  451. 12280  PT=8:PTC=40:LPRINTCHR$(27)CHR$(64);CHR$(27)CHR$(69);:PN=1:PL=0:FORLA=1TO5:LPRINT:NEXT:WIDTH"LPT1:",132:PL=5:FORI=1TOP:IFA$(I)="END"ORA$(I)="end"THEN12380
  452. 12350  LPRINTTAB(PT)A$(I):PL=PL+1:GOSUB12030:NEXT
  453. 12380  IFLLN$="TRUE"THEN12400
  454. 12390  IFLLN$="FALSE"THEN12410
  455. 12400  FORPA=1TO61-PL:LPRINT:NEXT:LPRINTTAB(PTC)PN;:LPRINTCHR$(12);:GOSUB12980:GOTO12270
  456. 12410  IFLLK$="STOPPG"THENGOSUB12980:GOTO12270
  457. 12420  LPRINTCHR$(12);:GOSUB12980:GOTO12270
  458. 12440  REM =====  STANDARD 10 PITCH ELITE/EMPHASIZED DOUBLE SPACE PRINT =====
  459. 12450  PT=8:PTC=40:LPRINTCHR$(27)CHR$(64);CHR$(27)CHR$(69);:PN=1:PL=0:FORLA=1TO5:LPRINT:NEXT:WIDTH"LPT1:",80
  460. 12490  PL=5:FORI=1TOP:IFA$(I)="END"ORA$(I)="end"THEN12550
  461. 12520  LPRINTTAB(PT)A$(I):LPRINT:PL=PL+2:GOSUB12030:NEXT
  462. 12550  IFLLN$="TRUE"THEN12570
  463. 12560  IFLLN$="FALSE"THEN12580
  464. 12570  FORPA=1TO61-PL:LPRINT:NEXT:LPRINTTAB(PTC)PN;:LPRINTCHR$(12);:GOSUB12980:GOTO12440
  465. 12580  IFLLK$="STOPPG"THENGOSUB12980:GOTO12440
  466. 12590  LPRINTCHR$(12);:GOSUB12980:GOTO12440
  467. 12610  REM =====  STANDARD ITALICS/EMPHASISED PRINT (EPSON CODE) =====
  468. 12620  PT=8:PTC=40:LPRINTCHR$(27)+"@";:LPRINTCHR$(27)+"E";:LPRINTCHR$(27);CHR$(52):PN=1:PL=0:FORLA=1TO5:LPRINT:NEXT:WIDTH"LPT1:",132:PL=5:FORI=1TOP:IFA$(I)="END"ORA$(I)="end"THEN12740
  469. 12710  LPRINTTAB(PT)A$(I):PL=PL+1:GOSUB12030:NEXT
  470. 12740  IFLLN$="TRUE"THEN12760
  471. 12750  IFLLN$="FALSE"THEN12770
  472. 12760  FORPA=1TO61-PL:LPRINT:NEXT:LPRINTTAB(PTC)PN;:LPRINTCHR$(12);:GOSUB12980:GOTO12610
  473. 12770  IFLLK$="STOPPG"THENGOSUB12980:GOTO12610
  474. 12780  LPRINTCHR$(12);:GOSUB12980:GOTO12610
  475. 12800  REM =====  COMPRESSED PRINT -16.5 Char/Inch (EPSON CODE) =====
  476. 12810  PT=35:PTC=65:LPRINTCHR$(27)+"@";:LPRINTCHR$(15);:PN=1:PL=0:FORLA=1TO5:LPRINT:NEXT:WIDTH"LPT1:",132:PL=5:FORI=1TOP:IFA$(I)="END"ORA$(I)="end"THEN12920
  477. 12890  LPRINTTAB(PT)A$(I):PL=PL+1:GOSUB12030:NEXT
  478. 12920  IFLLN$="TRUE"THEN12490
  479. 12930  IFLLN$="FALSE"THEN12950
  480. 12940  FORPA=1TO61-PL:LPRINT:NEXT:LPRINTTAB(PTC)PN;:LPRINTCHR$(12);:GOSUB12980
  481. 12950  IFLLK$="STOPPG"THENGOSUB12980:GOTO12800
  482. 12960  LPRINTCHR$(12);:GOSUB12980:GOTO12800
  483. 12980  REM =====  OPTION SUBROUTINE IN PRINT SEQUENCE  =====
  484. 12990  LPRINTCHR$(27)+"@";:CLS:GOSUB2190:GOSUB2330:LOCATE20,13:PRINT"To REPRINT this Choice     <PRESS> 1";:LOCATE21,13:PRINT"For a DIFFERENT Choice     <PRESS> 2";:LOCATE22,13:PRINT"To CONTROL Menu            <PRESS> 3";
  485. 13090  GOSUB3760:GOSUB4830:FINLEN=1:LOW=49:HIGH=51:GOSUB6240:NL=1:IFINPRT$=CHR$(13)THENSOUND400,3:GOTO13090
  486. 13170  ONVAL(INPTR$)GOTO13180,11020,3990
  487. 13180  RETURN
  488. 13190  END
  489. 13200  REM =====  QUIT PROGRAM & REINSTATE CURSOR CONTROL =====
  490. 13210  LOCATE,,,0,7:DEFSEG:POKE91,1:POKE92,25:CLS:END
  491. 13260  REM =====  FINAL SCREEN DISPLAY =====
  492. 13270  CLS:GOSUB2120:GOSUB2980:GOSUB2330:GOSUB3730:GOSUB4830:LOCATE6,19:COLOR15:PRINT"Have you SAVED your OLD, NEW, or EDITED File?":LOCATE8,19:PRINT"Your FILE will be erased from Memory on QUIT!":COLOR7,0:LOCATE11,19
  493. 13380  PRINT"    Return to CONTROL Menu    <PRESS>   1";:LOCATE13,19:PRINT"    Run LablFile Program      <PRESS>   2";:LOCATE15,19:PRINT"    Thanks!  Bye!      QUIT - <PRESS>   3";:LOCATE21,65,0
  494. 13420  FINLEN=1:LOW=49:HIGH=51:GOSUB6240:IFINTPRT$=CHR$(13)THENSOUND400,3:GOTO13420
  495. 13470  ONVAL(INPTR$)GOTO3990,13500,13200
  496. 13480  LOCATE,,,0,7:END
  497. 13500  RUN"LABLFILE
  498. 13510  REM =====  CLEAR FILE AND RETURN TO CONTROL MENU =====
  499. 13520  CLS:LOCATE 10,30:PRINT"FILE CLEARED":FOR TD=1 TO 1000:NEXT:RETURN
  500. 13570  END
  501.